home *** CD-ROM | disk | FTP | other *** search
/ Drivin' Route 66 / Drivin' Route 66 (1995)(Creative Multimedia)[Mac-PC].iso / mac / RTMM.DIR / 00544_Script_TRIP CODE < prev    next >
Text File  |  1995-10-03  |  6KB  |  240 lines
  1. on ShowTrip
  2.   global filerPath,gtheState,gtheSite,realSiteNum
  3.   put the name of cast (the castNum of sprite 1) into test
  4.   if char 1 of test = "u" then
  5.     put calcTPText() into gtheSite
  6.   else
  7.     put findStateNumber() into gtheState
  8.     put -1 into gtheSite -- Always at top
  9.   end if
  10.   if length(filerPath) = 0 then
  11.     makeAFile "Empty.","MyTrip66.doc"
  12.   end if
  13.   doTripSite -1
  14.   repeat with s = 33 to 39
  15.     set the visible of sprite s to true
  16.   end repeat
  17.   updateStage
  18.   
  19. end
  20.  
  21.  
  22. on calcTPText
  23.   put findSite() into x
  24.   put item 2 of line x of field "sitepatch" into temp
  25.   return integer(temp)
  26. end
  27.  
  28.  
  29. on hideTrip
  30.   put 0 into wasThere
  31.   repeat with s = 33 to 39
  32.     if the visible of sprite s then
  33.       put 1 into wasThere
  34.       puppetSprite s,1
  35.       set the visible of sprite s to false
  36.     end if
  37.   end repeat
  38.   if wasThere then
  39.     updateStage
  40.     repeat with s = 33 to 39
  41.       puppetSprite s,0
  42.     end repeat
  43.   end if
  44. end
  45.  
  46. on siteToTown input -- WRONG!!!
  47.   return input
  48. end
  49.  
  50. on clearItinerary
  51.   global gtheState,gtheSite
  52.   put 1 into gtheState
  53.   put 1 into gtheSite
  54.   repeat with i = 1 to 10
  55.     put empty into field ("itinerary" & string(i))
  56.   end repeat
  57.   put empty into field "itinerary"
  58. end
  59.  
  60. on buildItinerary
  61.   put empty into field "itinerary"
  62.   repeat with i = 1 to 10
  63.     put return & field ("itinerary" & string(i)) after field "itinerary"
  64.   end repeat
  65.   set the textFont of field "itinerary" to "geneva"
  66.   set the textSize of field "itinerary" to 9
  67.   
  68. end
  69.  
  70.  
  71. on addThis -- don't do it twice
  72.   global gtheState,gtheSite
  73.   if field "itinerary" contains (line 1 of field "tpw") then
  74.     nothing
  75.   else
  76.     put return & field "tpw" after field ("itinerary" & string(gtheState))
  77.     buildItinerary
  78.     makeAFile field "itinerary","MyTrip66.txt"
  79.   end if
  80. end
  81.  
  82. on makeAFile theText,theName
  83.   global filer,filerPath
  84.   if filer > 0 then filer(mDispose)
  85.   if length(theText) > 0 AND length(theName) > 0 then
  86.     if the machineType = 256 then
  87.       openXLib "fileio.dll"
  88.     end if
  89.     if length(filerPath) = 0 then
  90.       put fileio(mNew,"?write",theName) into filer
  91.     else
  92.       put fileio(mNew,"write",filerPath) into filer
  93.     end if
  94.     if filer > 0 then
  95.       put filer(mFileName) into filerPath
  96.       filer(mWriteString,theText)
  97.       filer(mDispose)
  98.     else
  99.       
  100.     end if
  101.     if the machineType = 256 then
  102.       closeXLib "fileio.dll"
  103.     end if
  104.   end if
  105. end
  106.  
  107. ------------------------------------
  108.  
  109. on doTripSite dir
  110.   global gtheState,gtheSite
  111.   if gtheState = 0 then put 1 into gtheState
  112.   if gtheSite = 0 then put 1 into gtheSite
  113.   --   
  114.   if dir = 1 then
  115.     if gtheSite = -1 then
  116.       put 1 into gtheSite
  117.     else
  118.       put gtheSite+1 into gtheSite
  119.     end if
  120.   else if dir = 0 then
  121.     -- if we're in a state map, it's okay to go back to top
  122.     if the frame < 61 then
  123.       if gtheSite = 1 then
  124.         put -1 into gtheSite
  125.       else
  126.         put gtheSite-1 into gtheSite
  127.         if gtheSite < -1 then 
  128.           put -1 into gtheSite 
  129.         end if
  130.       end if
  131.     else
  132.       put gtheSite-1 into gtheSite
  133.     end if
  134.     if gtheSite = 0 then
  135.       put 1 into gtheSite
  136.     end if
  137.     
  138.   else
  139.     if the frame < 61 then
  140.       put gtheSite+0 into gtheSite -- nuthin
  141.     else
  142.       if gtheSite < 1 then 
  143.         put 1 into gtheSite 
  144.       end if
  145.     end if
  146.   end if
  147.   
  148.   put gtheState into x
  149.   put gtheSite into y
  150.   
  151.   put getText(x,y) into temp
  152.  
  153.   if temp = "end of this state" then
  154.     put gtheSite - 1 into gtheSite
  155.   else if temp = "top of state" then
  156.     put gtheSite + 1 into gtheSite
  157.   else
  158.     put temp into field "tpw"
  159.   end if
  160. end
  161.  
  162.  
  163. on getText whichState,whichItem
  164.   global outOfGas, gtheState
  165.   if whichItem < 0 then
  166.     put whichItem+1 into whichItemL
  167.     if whichItemL < 1 then put 1 into whichItemL
  168.     put gtheState & "," & whichItemL into tc
  169.     put the text of cast tc into temp
  170.     return temp
  171.   else if whichItem < 1 then
  172.     return "top of state"
  173.   end if
  174.   put whichItem+1 into whichItemL
  175.   put gtheState & "," & whichItemL into tc
  176.   put integer(MycheckBounds(integer(gtheState), integer(whichItemL))) into isCool
  177.   if isCool then
  178.     put the text of cast tc into temp
  179.     return temp
  180.   else
  181.     return "end of this state"
  182.   end if
  183. end
  184.  
  185. On MycheckBounds thestate, theSite
  186.   If (thestate=1 and theSite>40) then
  187.     return 0
  188.   else if (thestate=2 and theSite>25) then
  189.     return 0
  190.   else if (thestate=3 and theSite>4) then
  191.     return 0
  192.   else if (thestate=4 and theSite>31) then 
  193.     return 0
  194.   else if (thestate=5 and theSite>9) then
  195.     return 0
  196.   else if (thestate=6 and theSite>14) then
  197.     return 0
  198.   else if (thestate=7 and theSite>21) then
  199.     return 0
  200.   else if (thestate=8 and theSite>19) then
  201.     return 0
  202.   else 
  203.     return 1
  204.   end if
  205. end
  206.  
  207. On checkBounds
  208.   global gthestate, outofGas, gtheSite
  209.   If (gthestate=1 and gtheSite>=40) then
  210.     set outOfGas to "yes"
  211.   else if (gthestate=2 and gthesite>=25) then
  212.     set outOfGas to "yes"
  213.   else if (gthestate=3 and gthesite>=4) then
  214.     set outOfGas to "yes"
  215.   else if (gthestate=4 and gthesite>=31) then 
  216.     set outOfGas to "yes"
  217.   else if (gthestate=5 and gthesite>=9) then
  218.     set outOfGas to "yes"
  219.   else if (gthestate=6 and gthesite>=14) then
  220.     set outOfGas to "yes"
  221.   else if (gthestate=7 and gthesite>=21) then
  222.     set outOfGas to "yes"
  223.   else if (gthestate=8 and gthesite>=19) then
  224.     set outOfGas to "yes"
  225.   else 
  226.     set outOfGas to "no"
  227.   end if
  228. end
  229.  
  230.  
  231. --Illinois=1, whichItem<=40
  232. --Missouri=2, whichItem<=25
  233. --Kansas=3, whichItem<=4
  234. --Oklahoma=4, whichItem<=31
  235. --Texas=5, whichItem<=9
  236. --New Mexico=6, whichItem<=14
  237. --Arizona=7, whichItem<=21
  238. --California=8, whichItem<=19
  239.  
  240.